10 INPUT "Количество строк ="; M%: IF M% < 1 THEN 10
20 INPUT "Количество столбцов ="; N%: IF N% < 1 THEn 20
30 DIM AR(M%, N%)
40 FOR I=1 TO M%
50 FOR J=1 TO N%
60 PRINT "Элемент "; I; "-й строки, "; J; "-го столбца = ";
70 INPUT AR(I, J)
80 NEXT J
90 NEXT I
100 MAX = AR(1, 1): IMAX = 1: JMAX = 1
110 FOR I=1 TO M%
120 FOR J=1 TO N%
130 IF AR(I, J) >= MAX THEN MAX = AR(I, J): IMAX = I: JMAX = J
140 NEXt J
150 NEXT I
160 PRINT "Значение максимального элемента"; MAX
170 PRINT "Он расположен в строке №"; IMAX; ", столбце №"; JMAX
180 END